home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 8 / Revista CD Expert nº 08 CD1.iso / Utilitarios / Office / Where Is It / SETUP.EXE / %MAINDIR% / DescAPI / DescAPI.inc < prev    next >
Encoding:
Text File  |  1999-04-11  |  2.4 KB  |  78 lines
  1. const
  2.   MaxDescLength = 4096;
  3.  
  4.   DT_Floppy525_360     = 0;
  5.   DT_Floppy525_12      = 1;
  6.   DT_Floppy35_720      = 2;
  7.   DT_Floppy525_8SD     = 3;
  8.   DT_Floppy525_8DD     = 4;
  9.   DT_HardDisk          = 5;
  10.   DT_TapeDrive         = 6;
  11.   DT_Floppy35_144      = 7;
  12.   DT_Optical           = 8;
  13.   DT_Floppy35_288      = 9;
  14.   DT_CDROM             = 10;
  15.   DT_Network           = 11;
  16.   DT_RamDisk           = 12;
  17.   DT_Removable         = 13;
  18.   DT_ZipDrive          = 14;
  19.   DT_JazDrive          = 15;
  20.   DT_ZipDrivePlus      = 16;
  21.   DT_SeagateDirectTape = 17;
  22.   DT_LS120             = 18;
  23.   DT_MOS320            = 19;
  24.   DT_MOS332            = 20;
  25.   DT_M2531A            = 21;
  26.   DT_Jaz2Drive         = 22;
  27.   DT_Unknown           = $FF;
  28.  
  29. type
  30.   TPluginType = (ptReserved, ptSameFile, ptParentItem, ptItemList, ptDiskInfo);
  31.  
  32.   TDescInfoRecord = record
  33.     lpszRootPath: PChar;
  34.     lpszVirtualRoot: PChar;
  35.     lpszVolumeLabel: PChar;
  36.     lpszFSName: PChar;
  37.     iMaxNameLength: Integer;
  38.     dwSerialNumber: DWORD;
  39.     wDiskNum: Word;
  40.     wMediaType: Word;
  41.     iBytesPerSector: Integer;
  42.     iSectorsPerCluster: Integer;
  43.     iTotalClusters: Integer;
  44.     iFreeClusters: Integer;
  45.     iNumberOfFiles: Integer;
  46.     iNumberOfCompressedFiles: Integer;
  47.     wNumberOfDirs: Word;
  48.   end;
  49.  
  50.   TModuleInfo = procedure(ModuleName, Author, Version: PChar); stdcall;
  51.  
  52.   TConfigPluginProc = procedure(HInstance: THandle; OwnerWnd: THandle;
  53.      PluginID: Word); stdcall;
  54.  
  55.   TRegisterPlugin = function (PluginID: Word; PluginType: TPluginType; PluginName,
  56.      FileMask: PChar; ConfigProc: TConfigPluginProc): Integer; stdcall;
  57.  
  58.   TRegisterDescPlugins = procedure (RegisterPlugin: TRegisterPlugin); stdcall;
  59.  
  60.   TInitDescImport = procedure; stdcall;
  61.  
  62.   TDoneDescImport = procedure; stdcall;
  63.  
  64.   TRequireFileProc = function(FileName: PChar): PChar; stdcall;
  65.  
  66.   TImportDesc_SameFile = function(PluginID: Word; FileName,Desc: PChar;
  67.      RequireFile: TRequireFileProc): Boolean; stdcall;
  68.  
  69.   TImportDesc_ParentItem = function(PluginID: Word; ParentName,FoundList,Desc: PChar;
  70.      RequireFile: TRequireFileProc): Boolean; stdcall;
  71.  
  72.   TStoreDescProc = function(FileName, Desc: PChar): Boolean; stdcall;
  73.  
  74.   TImportDesc_ItemList = procedure(PluginID: Word; ParentName,FoundList: PChar;
  75.      RequireFile: TRequireFileProc; StoreDescProc: TStoreDescProc); stdcall;
  76.  
  77.   TImportDesc_DiskInfoProc = function(PluginID: Word; DescInfo: TDescInfoRecord;
  78.      Desc: PChar): Boolean; stdcall;